'KC8QNO Beacon Software for the Basic Stamp 2
'Pin 1 controls the morse key on the rig
'Pin 2 controls the LED on the Stamp


INDEX1	VAR	BYTE
INDEX2	VAR	BYTE
ELEMENTS	VAR	BYTE
CHARACTER   VAR   BYTE
DELAY	CON	1500
I		VAR	BYTE
C		VAR	BYTE

IDENTIFY:
	LOW 2
	FOR I = 1 TO 8							'Loop for one "dit" every 2 sec
	CHARACTER = 1							'until ID string (8 times)
	GOSUB MORSE			
	PAUSE 2000
	NEXT
	PAUSE 1000								'Time Between Words   		     
	FOR INDEX1 = 0 TO 2
	LOOKUP INDEX1,[20,20,20],CHARACTER           		'VVV
	GOSUB MORSE
	PAUSE 1000
	NEXT
	FOR INDEX1 = 0 TO 5
	LOOKUP INDEX1,[132,1,66,164,227,130],CHARACTER		'BEACON
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[131,1],CHARACTER				'DE
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 5
	LOOKUP INDEX1,[163,164,229,212,130,227],CHARACTER	'KC8QNO	
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 6
	LOOKUP INDEX1,[129,35,3,164,227,68,66],CHARACTER	'TUSCOLA
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[164,227],CHARACTER				'CO
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[194,2],CHARACTER				'MI
	GOSUB MORSE
	NEXT
	PAUSE 1000
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[3,163],CHARACTER				'SK
	GOSUB MORSE
	NEXT
	RETURN
MORSE:	ELEMENTS = CHARACTER & %00000111
	IF ELEMENTS = 7 THEN ADJUST1
	IF ELEMENTS = 6 THEN ADJUST2
BANG_KEY:
	FOR INDEX2 = 1 TO ELEMENTS
	IF CHARACTER >= 128 THEN DAH
	GOTO DIT
REENTER:
	CHARACTER = CHARACTER * 2
	NEXT
	GOSUB CHAR_SP
	RETURN
ADJUST1:
	ELEMENTS = 6
	GOTO BANG_KEY
ADJUST2:
	CHARACTER = CHARACTER & %11111011
	GOTO BANG_KEY
DIT:	HIGH 2				
	LOW 1 			
	PAUSE 175
	LOW 2
	HIGH 1
	PAUSE 125			'Letter Speed (DIT and DAH must match here or the code
	GOTO REENTER		'sounds funny
DAH:	HIGH 2
	LOW 1
	PAUSE 375
	LOW 2
	HIGH 1
	PAUSE 125			'Letter Speed (DIT and DAH must match here or the code
	GOTO REENTER		'sounds funny
CHAR_SP:
	LOW 2
	HIGH 1
	PAUSE 500			'Time Between Letters (Characters)
	RETURN
WORD_SP:
	LOW 2
	HIGH 1
	PAUSE 1200
	RETURN